home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasic_1.zip / BAS_LIST.EXE / ANGSQR.BAS next >
BASIC Source File  |  1992-06-29  |  202b  |  11 lines
  1. SCREEN 1
  2. COLOR 8, 1
  3. LINE (20, 30)-(100, 80), 2, B      ''make square and color outline
  4.  
  5.  
  6. DO UNTIL INKEY$ <> "": LOOP
  7.  
  8.  
  9. LINE (20, 30)-(100, 80), 2, BF       ''make square and color entir box
  10.  
  11.